home *** CD-ROM | disk | FTP | other *** search
/ Software USA 4 #8 / Software USA Volume 4.08.iso / mac / LifeStyles / ComicBase / ComicBase.sea / ComicBase 3 Mac Demo / ComicBase 3 Demo.rsrc / LENS_133_Print < prev    next >
Text File  |  1998-02-04  |  19KB  |  261 lines
  1. ItemType: WIND
  2. Rect: 95,94,544,385
  3. Style: Dialog
  4. HasTitleBar: TRUE
  5. HasZoomBox: FALSE
  6. Name: Print
  7. WhiteColor: -8739,-8739,-8739
  8. Script: --on windowEvent  wdID,wdName,objNo,objName,objValue¬¬Global itemToPrint, printListIssueNums, selectedTitlesIndex¬Global titlesCardNumList, frontAndBackLabels, labelType, selectedLabel¬global gWindowPositions¬global gTitlesToPrintType¬global gListOnlyIssuesInStock, gIncludeStorylinesWithNotes¬global gIssuesOfEachTitle, gPrintMissingIssues, gGroupIssueNumbers¬global gTitlePicturesAndDesc, gReportItemListNames, gReportItemListItems¬global gDoBarcodes¬¬---------------------¬-- This is window #17¬---------------------¬¬if objValue="Open" then¬  set cursor to watch¬  -- Restore old window position¬  put OldWindowPosition(17) into windowRect¬  if windowRect = empty then centerWindow wdName¬  else wsSet wdID,"0","Rect",windowRect¬  ¬  -- Clear out the print list¬  put empty into printListIssueNums -- the list of issue indexes¬  put empty into titlesCardNumList -- list of card numbers corresponding to the issues¬  put empty into selectedTitlesIndex¬  ¬  put "All" into gTitlesToPrintType¬  put cd fld ((the selectedText of cd btn "Product Name" of cd 3) && "Report List") of cd 2 into theReportList¬  ¬  wsSet wdID,"ReportTypes","Text",theReportList¬  wsSet wdID,"ReportTypes","AutoSize",False¬  wsSet wdID,"ReportTypes","AutoSize",True¬  ¬  -- Hilite the selected type of report¬  put getColumn(theReportList,1,1,"◊") into theReportNames¬  if itemToPrint = empty then put line 1 of theReportNames into itemToPrint¬  put find(theReportNames,itemToPrint,"Line","Exact") into selectPos¬  put "ReportTypes_Selection:" & selectPos & return into setupCommands¬  ¬  -- Pull out the attributes lists¬  put cd fld("Report Items") of cd 2 into reportItemList¬  put getcolumn(reportItemList,1,1,"◊") into gReportItemListNames¬  put getcolumn(reportItemList,2,2,"◊") into gReportItemListItems¬  ¬  -- Start building property list¬  put find(gReportItemListNames,itemToPrint,"Line","Exact") into itemIndex¬  if itemIndex = 0 then¬    Get Windowscript("Stop Alert","Error: Couldn’t find setup information for report type: " & itemToPrint)¬  else¬    put xlate(line itemIndex of gReportItemListItems,numToChar(194),return) after setupCommands¬  end if¬  ¬  if itemToPrint = "Divider Blurbs" or itemToPrint = "Price Labels" or itemToPrint = "Divider Labels" then¬    -- Set the popup¬    if labelType = empty or labelType = "labelType" then¬      put "Avery 5160" into LabelType¬    end if¬    put "LabelTypePop_SelectionText:" & LabelType & return after setupCommands¬    put 1 into selectedLabel¬    send SetupLabelSizes to cd btn "SetupLabelSizes" of cd 2¬  end if¬  ¬  -- set the title selection & other parameters¬  if gReportType = "Summary" then¬    put "i15_Hilite:True" & return & "i16_Hilite:False" & return & "i17_Hilite:False" & return after setupCommands¬  else if gReportType = "Basic" then¬    put "i15_Hilite:False" & return & "i16_Hilite:True" & return & "i17_Hilite:False" & return after setupCommands¬  else¬    put "i15_Hilite:False" & return & "i16_Hilite:False" & return & "i17_Hilite:True" & return after setupCommands¬  end if¬  ¬  put "i6_Hilite:True" & return & "i7_Hilite:False" & return & "i8_Hilite:False" & return & "i24_Hilite:" & gListOnlyIssuesInStock & return & "i25_Hilite:" & gIncludeStorylinesWithNotes & return & "i11_Hilite:" & gTitlePicturesAndDesc & return & "i12_Hilite:" & gIssuesOfEachTitle & return & "i13_Hilite:" & gPrintMissingIssues & return & "i14_Hilite:" & gGroupIssueNumbers & return & "i18_Hilite:" & FrontAndBackLabels & return & "i27_Hilite:" & gDoBarcodes & return after setupCommands¬  ¬  wsSet "Print","0","Properties",setupCommands¬  set cursor to arrow¬else if objValue="Close" then¬  -- save the window position¬  put "17" & tab & wdName & tab & wsGet(wdID,"0","Rect") into line 17 of gWindowPositions¬  ¬end if¬¬--end windowEvent¬
  9.  
  10. ItemType: PUSH
  11. Rect: 359,264,439,284
  12. AutoSize: FALSE
  13. Name: Print…
  14. DefaultItem: TRUE
  15. AutoClose: TRUE
  16. Balloon: Click here to begin printing.
  17. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬global itemToPrint, gShortDate¬global gIncludeStorylinesWithNotes, gDoBarCodes¬global gDoPreview¬¬put false into gDoPreview¬¬set cursor to watch¬hide window "Print"¬¬put wsGet("Print","Include Storylines","Hilite") into gIncludeStorylinesWithNotes¬put wsGet("Print","Include Bar Codes","Hilite") into gDoBarCodes¬¬-- Come up with a date coding¬set the itemDelimiter to "/"¬put the short date into ShortDate¬put (item 1 of shortDate) & "X" & (item 2 of shortDate) & (char 2 of item 3 of shortdate) into gShortDate¬set the itemDelimiter to comma¬¬if itemToPrint  = "Price Labels" then¬  send FormIssueLists to cd 1 of bg "Title"¬  send PrintPriceLabels to cd 1¬else if itemToPrint = "Price List" then send PrintPriceList to cd btn "printPriceList" of cd 2¬else if itemToPrint = "Divider Labels" then send "PrintDividerLabels" to cd 1¬else if itemToPrint = "Divider Blurbs" then send printDividerBlurbs to cd btn "printIssuechecklists" of cd 2¬else if itemToPrint = "Title Report" then send "PrintTitleReport" to cd btn "PrintTitleReport" of cd 2¬else if itemToPrint = "Issue Checklists" then send printissueChecklists to cd btn "printIssuechecklists" of cd 2¬--end mouseUp
  18.  
  19. ItemType: PUSH
  20. Rect: 176,264,256,284
  21. AutoSize: FALSE
  22. Name: Cancel
  23. CancelItem: TRUE
  24. AutoClose: TRUE
  25. Balloon: Click here to exit without printing.
  26. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬--end mouseUp¬
  27.  
  28. ItemType: LIST
  29. Rect: 8,2,440,69
  30. TextFont: Geneva
  31. TextSize: 9
  32. Name: ReportTypes
  33. Style: ListOfLabeledArt
  34. Logic: Single
  35. KeyScroll: TRUE
  36. Text: Divider Labels◊ICN#◊5303¬Issue Checklists◊ICN#◊5305¬Price Labels◊ICN#◊5300¬Price List◊ICN#◊5301¬Title Report◊ICN#◊5304¬Divider Blurbs◊ICN#◊5302
  37. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬global itemToPrint, gReportItemListNames, gReportItemListItems¬Global itemToPrint, titlesCardNumList, printListIssueNums¬Global selectedTitlesIndex¬¬if objValue <> empty then¬  -- Clear out the print list¬  put empty into printListIssueNums -- the list of issue indexes¬  put empty into titlesCardNumList -- list of card numbers corresponding to the issues¬  put empty into selectedTitlesIndex¬  ¬  put getColumn(objValue,1,1,"◊") into itemToPrint¬  ¬  -- Start building property list¬  put find(gReportItemListNames,itemToPrint,"Line","Exact") into itemIndex¬  if itemIndex = 0 then¬    Get Windowscript("Stop Alert","Error: Couldn’t find setup information for report type: " & itemToPrint)¬  else¬    put xlate(line itemIndex of gReportItemListItems,numToChar(194),return) into setupCommands¬  end if¬  ¬  if itemToPrint = "Divider Blurbs" or itemToPrint = "Price Labels" or itemToPrint = "Divider Labels" then¬    -- Set the popup¬    if labelType = empty or labelType = "labelType" then¬      put "Avery 5160" into LabelType¬    end if¬    put "LabelTypePop_SelectionText:" & LabelType & return after setupCommands¬    put 1 into selectedLabel¬    send SetupLabelSizes to cd btn "SetupLabelSizes" of cd 2¬  end if¬  wsSet "Print","0","Properties",setupCommands¬else¬  put cd fld ((cd fld "Product Name" of cd 1) && "Report List") of cd 2 into theReportList¬  put getColumn(theReportList,1,1,"◊") into theReportNames¬  put find(theReportNames,itemToPrint,"Line","Exact") into selectPos¬  wsSet "Print","ReportTypes","Selection",SelectPos¬end if¬¬if itemToPrint = "Title Report" then¬  wsSet "Print","25","Disabled",  not (wsGet("Print","12","Hilite") or wsGet("Print","13","Hilite"))¬end if¬--end mouseUp
  38.  
  39. ItemType: BOX
  40. Rect: 9,86,238,151
  41. Pen: White
  42.  
  43. ItemType: BOX
  44. Rect: 8,82,237,150
  45. TextFont: Geneva
  46. TextSize: 9
  47. TextStyle: Bold
  48. BlackColor: -26215,-26215,-26215
  49. WhiteColor: -8739,-8739,-8739
  50. Name: Titles to print
  51.  
  52. ItemType: RAD
  53. Rect: 16,94,55,110
  54. TextSize: 12
  55. WhiteColor: -8739,-8739,-8739
  56. Name: All
  57. Hilite: TRUE
  58. Balloon: Click here to include all ComicBase titles in the report (or labels) you’ve selected.
  59. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬global gTitlesToPrintType¬¬put objName into gTitlesToPrintType¬wsSet wdID,"Print…","Disabled","False"¬--end mouseUp
  60.  
  61. ItemType: RAD
  62. Rect: 16,111,149,127
  63. TextSize: 12
  64. WhiteColor: -8739,-8739,-8739
  65. Name: Selected titles…
  66. Balloon: Click here to select only specific titles for inclusion in your chosen report (or label printing).
  67. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬global selectedTitlesIndex¬global gTitlesToPrintType¬¬set cursor to watch¬put objName into gTitlesToPrintType¬get windowScript("Select Titles","Print which titles?")¬if it <> empty then¬  put xlate(selectedTitleNums,comma,return) & return into selectedTitlesIndex¬end if¬¬wsSet "Print",1,"Disabled",(selectedTitlesIndex = empty)¬--end mouseUp
  68.  
  69. ItemType: RAD
  70. Rect: 16,127,150,143
  71. WhiteColor: -8739,-8739,-8739
  72. Name: Selected Issues…
  73. Balloon: Click here to select a list of specific issue numbers to print labels for.
  74. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬global printListIssueNums¬global gTitlesToPrintType¬¬set cursor to watch¬put objName into gTitlesToPrintType¬Get WindowScript("Issue Selection")¬wsSet "Print",1,"Disabled",(printListIssueNums = empty)¬--end mouseUp
  75.  
  76. ItemType: BOX
  77. Rect: 9,151,238,201
  78. Visible: FALSE
  79. Pen: White
  80.  
  81. ItemType: BOX
  82. Rect: 9,147,237,200
  83. TextFont: Geneva
  84. TextSize: 9
  85. TextStyle: Bold
  86. Visible: FALSE
  87. BlackColor: -26215,-26215,-26215
  88. WhiteColor: -8739,-8739,-8739
  89. Name: Report Items
  90.  
  91. ItemType: CHK
  92. Rect: 16,194,225,210
  93. Visible: FALSE
  94. WhiteColor: -8739,-8739,-8739
  95. Name: Title pictures & descriptions
  96. Hilite: TRUE
  97. Balloon: If this item is checked, the titles report will include both a picture from each title and the title’s description. ¬¬This is useful for reviewing your collection, but can take a great deal of paper to print.
  98. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬global gTitlePicturesAndDesc¬¬put objValue into gTitlePicturesAndDesc¬put (not (gTitlePicturesAndDesc or wsGet(wdID,"12","Hilite") or wsGet(wdID,"13","Hilite"))) into disablePrint¬¬wsSet "Print","Print…","Disabled",disablePrint¬--end mouseUp
  99.  
  100. ItemType: CHK
  101. Rect: 16,160,168,176
  102. Visible: FALSE
  103. WhiteColor: -8739,-8739,-8739
  104. Name: Issues of each title
  105. Balloon: Check this item to include a list of the issues you own for each title.¬¬This list can be printed in condensed format if you check the “Group issue numbers together” item below, or in checklist format if that item is unchecked.
  106. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬Global gIssuesOfEachTitle¬¬put objValue into gIssuesOfEachTitle¬¬put (gIssuesOfEachTitle = false) and (wsGet(wdID,"Missing Issues for Each Title","Hilite") = false) into disableGroupIssues¬put (disableGroupIssues and not (wsGet(wdID,"Title pictures & descriptions","Hilite"))) into disablePrint¬¬wsSet wdID,"Properties","i14_Disabled:" & disableGroupIssues & return & "i25_Disabled:" & disableGroupIssues & return & "Print…_Disabled:" & disablePrint & return¬¬--end mouseUp
  107.  
  108. ItemType: CHK
  109. Rect: 16,177,226,193
  110. Visible: FALSE
  111. WhiteColor: -8739,-8739,-8739
  112. Name: Missing issues for each title
  113. Hilite: TRUE
  114. Balloon: Check this item to include a list of the issues you are missing for each title.¬¬This list can be printed in condensed format if you check the “Group issue numbers together” item below, or in checklist format if that item is unchecked.
  115. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬Global gPrintMissingIssues¬¬put objValue into gPrintMissingIssues¬¬put (gPrintMissingIssues = false) and (wsGet(wdID,"Issues of each title","Hilite") = false) into disableGroupIssues¬put (disableGroupIssues and not (wsGet(wdID,"Title pictures & descriptions","Hilite"))) into disablePrint¬¬wsSet wdID,"Properties","i14_Disabled:" & disableGroupIssues & return & "i25_Disabled:" & disableGroupIssues & return & "Print…_Disabled:" & disablePrint & return¬--end mouseUp
  116.  
  117. ItemType: CHK
  118. Rect: 16,221,239,237
  119. Visible: FALSE
  120. WhiteColor: -8739,-8739,-8739
  121. Name: Group issue numbers together
  122. Hilite: TRUE
  123. Balloon: Checking this item groups “runs” of issues together. For instance, issues #1, 2, 3, 7, and 8 will print as 1–3, 7–8.¬¬If the item is unchecked, issues will appear separately (useful for checklists).
  124. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬Global gGroupIssueNumbers¬¬put objValue into gGroupIssueNumbers¬--end mouseUp
  125.  
  126. ItemType: RAD
  127. Rect: 16,160,101,176
  128. Visible: FALSE
  129. WhiteColor: -8739,-8739,-8739
  130. Name: Summary
  131. Balloon: Clicking here chooses a summary style of report. This contains totals without the detailed listing of issues, etc.
  132. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬global gReportType¬¬put objName into gReportType¬wsSet wdID, "40", "Disabled", "True" ¬--end mouseUp
  133.  
  134. ItemType: RAD
  135. Rect: 16,177,74,193
  136. Visible: FALSE
  137. WhiteColor: -8739,-8739,-8739
  138. Name: Basic
  139. Balloon: Clicking here chooses the basic style of report. This gives standard information on each title, without going into as much detail as the “detailed” report style.
  140. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬global gReportType¬¬put objName into gReportType¬wsSet wdID, "40", "Disabled", "False" ¬--end mouseUp
  141.  
  142. ItemType: RAD
  143. Rect: 16,194,94,210
  144. Visible: FALSE
  145. WhiteColor: -8739,-8739,-8739
  146. Name: Detailed
  147. Hilite: TRUE
  148. Balloon: Clicking here chooses the most detailed style of report. This gives information on each issue, as well as totals by title and grand totals for the collection.
  149. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬global gReportType¬¬put objName into gReportType¬wsSet wdID, "40", "Disabled", "False" ¬--end mouseUp
  150.  
  151. ItemType: CHK
  152. Rect: 16,195,211,211
  153. Visible: FALSE
  154. WhiteColor: -8739,-8739,-8739
  155. Name: Print labels for both sides
  156. Hilite: TRUE
  157. Balloon: Click here to print two labels for each title (one for each side of the divider).
  158. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬global frontAndBackLabels¬¬put objValue into frontAndBackLabels¬--end mouseUp
  159.  
  160. ItemType: POP
  161. Rect: 91,168,208,185
  162. Name: LabelTypePop
  163. WhiteColor: -8739,-8739,-8739
  164. Text: Avery 5160¬Avery 5161¬Avery 5162¬Avery 5163¬Avery 5164¬Avery 5196¬Avery 5197¬Avery 5260¬Avery 5261¬Avery 5262¬Avery 5266
  165. TitleItem: 21
  166. Balloon: Choose the type of label you are printing on here. Most popular types of Avery labels are selected.¬¬If you are using a different type of label, choose the Avery label type that is closest to your label (or buy Avery labels!).
  167. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬Global labelType¬¬put wsGet ("Print", objNo, "TextofSelection") into labelType¬¬send SetupLabelSizes to cd btn "SetupLabelSizes" of cd 2¬--end mouseUp
  168.  
  169. ItemType: BOX
  170. Rect: 267,85,440,256
  171. WhiteColor: -8739,-8739,-8739
  172. Fill: Gray
  173.  
  174. ItemType: LBL
  175. Rect: 16,167,85,183
  176. WhiteColor: -4370,-4370,-4370
  177. Text: Label Type:
  178.  
  179. ItemType: TEXT
  180. Rect: 271,72,426,84
  181. TextFont: Geneva
  182. TextSize: 9
  183. Name: LabelClickPrompt
  184. WhiteColor: -8739,-8739,-8739
  185. Text: Click on the first label’s position:
  186.  
  187. ItemType: PICT
  188. Rect: 292,89,415,249
  189. WhiteColor: -8739,-8739,-8739
  190. Name: 5160 Label Grid
  191. Grid: 3,10
  192. Logic: Radio
  193. Balloon: Click on a box here to choose where the first label should print. This allows you to conserve labels by printing in the middle of a partial page of labels.
  194. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬Global selectedLabel¬¬put wsget(wdID,objNo,"Selection") into baseNum¬put wsGet(wdID,objNo,"Grid") into myGrid¬put item 1 of myGrid into myCols¬put item 2 of myGrid into myRows¬¬-- Recalculate the logic of the print order to move up-down rather than¬-- left-right (to match Reports’ printing)¬¬repeat with x = 1 to myCols¬  if (baseNum - x) mod myCols = 0 then¬    put x into thisCol¬    put ((baseNum - 1) div myCols) + 1 into thisRow¬    ¬    put (thisCol - 1) * myRows + thisRow into selectedLabel¬    exit repeat¬  end if¬end repeat¬--end mouseUp¬¬
  195.  
  196. ItemType: CHK
  197. Rect: 16,221,232,237
  198. AutoSize: FALSE
  199. Visible: FALSE
  200. WhiteColor: -8739,-8739,-8739
  201. Name: List only issues in stock
  202. Balloon: If this setting is checked, only the issues that you have one or more in stock of will print in the report.
  203. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬global gListOnlyIssuesInStock¬¬put objValue into gListOnlyIssuesInStock¬--end mouseUp
  204.  
  205. ItemType: CHK
  206. Rect: 16,239,159,255
  207. WhiteColor: -8739,-8739,-8739
  208. Name: Include storylines
  209. Hilite: TRUE
  210. Balloon: If this setting is checked, ComicBase will print storylines in addition to the notes for a given issue.
  211. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬global gIncludeStorylinesWithNotes¬¬put objValue into gIncludeStorylinesWithNotes¬--end mouseUp
  212.  
  213. ItemType: PUSH
  214. Rect: 17,267,143,287
  215. Visible: FALSE
  216. WhiteColor: -8739,-8739,-8739
  217. Name: More Choices…
  218.  
  219. ItemType: CHK
  220. Rect: 16,221,157,237
  221. WhiteColor: -8739,-8739,-8739
  222. Name: Include bar codes
  223. Balloon: If this setting is checked, your labels will show include bar codes. This is useful if you use a point-of-sale system, but leaves less space for notes.
  224. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬global gDoBarcodes¬¬put objValue into gDoBarcodes¬--end mouseUp
  225.  
  226. ItemType: LINE
  227. Rect: 13,86,101,87
  228. TextStyle: Bold
  229. BlackColor: -8739,-8739,-8739
  230.  
  231. ItemType: LBL
  232. Rect: 18,79,100,91
  233. TextFont: Geneva
  234. TextSize: 9
  235. TextStyle: Bold
  236. BlackColor: 17476,17476,17476
  237. WhiteColor: -8739,-8739,-8739
  238. Text: Titles to print
  239.  
  240. ItemType: LINE
  241. Rect: 14,151,94,152
  242. BlackColor: -8739,-8739,-8739
  243.  
  244. ItemType: LBL
  245. Rect: 19,144,93,156
  246. TextFont: Geneva
  247. TextSize: 9
  248. TextStyle: Bold
  249. Visible: FALSE
  250. BlackColor: 17476,17476,17476
  251. WhiteColor: -8739,-8739,-8739
  252. Text: Report Items
  253.  
  254. ItemType: PUSH
  255. Rect: 266,264,346,284
  256. AutoSize: FALSE
  257. WhiteColor: -8739,-8739,-8739
  258. Name: Preview…
  259. AutoClose: TRUE
  260. Balloon: Click here to begin printing.
  261. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬global itemToPrint, gShortDate¬global gIncludeStorylinesWithNotes, gDoBarCodes¬global gDoPreview¬¬put true into gDoPreview¬set cursor to watch¬hide window "Print"¬¬put wsGet("Print","Include Storylines","Hilite") into gIncludeStorylinesWithNotes¬put wsGet("Print","Include Bar Codes","Hilite") into gDoBarCodes¬¬-- Come up with a date coding¬set the itemDelimiter to "/"¬put the short date into ShortDate¬put (item 1 of shortDate) & "X" & (item 2 of shortDate) & (char 2 of item 3 of shortdate) into gShortDate¬set the itemDelimiter to comma¬¬if itemToPrint  = "Price Labels" then¬  send FormIssueLists to cd 1 of bg "Title"¬  send PrintPriceLabels to cd 1¬else if itemToPrint = "Price List" then send PrintPriceList to cd btn "printPriceList" of cd 2¬else if itemToPrint = "Divider Labels" then send "PrintDividerLabels" to cd 1¬else if itemToPrint = "Divider Blurbs" then send printDividerBlurbs to cd 1¬else if itemToPrint = "Title Report" then send "PrintTitleReport" to cd btn "PrintTitleReport" of cd 2¬else if itemToPrint = "Issue Checklists" then send printissueChecklists to cd btn "printIssuechecklists" of cd 2¬--end mouseUp